home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / OriginEditor.zprx < prev    next >
Text File  |  1995-03-09  |  3KB  |  99 lines
  1. /*
  2.     $VER: Origin Editor V1.0 (31.12.94) Copyright © Nils Görs
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man aus
  5.     Zodiac's Point heraus, die Cookie-Dateien editieren kann.
  6.  
  7.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  8.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  9.     nicht ohne Erlaubnis des Autors.
  10.  
  11.  
  12.     Sie erreichen den Autor wie folgt:
  13.  
  14.        Nils Görs              Tel. : +49 (0)202 784258
  15.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.wupper.de
  16.        42329 Wuppertal          oder über das ZP-Support-Brett.
  17.  
  18.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  19.  
  20.  
  21.     Hinweise zur Installation:
  22.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  23.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  24.     "F1:SYS:Rexxc/RX ZP:Rexx/OriginEditor.zprx %s [O|P]" hinzu.
  25.     [O = öffentlich]
  26.     [P = privat]
  27.  
  28.     Alternativ können auch folgende Zeilen in die Datei usermenus.zp
  29.     eingefügt werden:
  30.  
  31.     *öffentliche Origins
  32.     SYS:Rexxc/RX Zodiac:Rexx/OriginEditor.zprx %s O
  33.     *private Origins
  34.     SYS:Rexxc/RX Zodiac:Rexx/OriginEditor.zprx %s P
  35. */
  36.  
  37. HauptPfad  = "Bretter"
  38. PrivCookie = "/PrivCookie.zp"
  39. PubCookie  = "/Cookie.zp"
  40. Stack      = "c:stack 8000"
  41. Editor     = "c:Ced -keepio"
  42. /* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  43.  *      Bitte geben Sie hier ihre Präferenzen ein !                *
  44.  *******************************************************************/
  45.  
  46. /*******************************************************************
  47.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  48.  *******************************************************************/
  49.  
  50. OPTIONS RESULTS
  51.  
  52. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  53. PARSE ARG zpPort Art .
  54. IF zpPort == "" THEN
  55.    zpPort = "ZPoint"
  56. ADDRESS VALUE zpPort
  57.  
  58. UPPER Art
  59. IF Art == "O" then Art = 1
  60. IF Art == "P" then Art = 0
  61. IF Art == "" then Art = 1
  62.  
  63. WHICHLEVEL
  64.  
  65. IF result = "BOARD" then 
  66.  DO
  67.  BOARDINFO path
  68.  Path=Result
  69.  IF ART == 1 THEN
  70.   DO
  71.     GUILOCK ON                                 /* Damit wird ZP für den User gesperrt! */
  72.     ADDRESS COMMAND
  73.     stack; Editor Path||Pubcookie              /* Stack setzen und Editor starten */
  74.     ADDRESS VALUE zpPort
  75.     GUILOCK OFF                                /* ZP wird für den User wieder freigegeben! */
  76.    EXIT
  77.   END
  78.     GUILOCK ON                                 /* Damit wird ZP für den User gesperrt! */
  79.     ADDRESS COMMAND
  80.     stack; Editor Path||privcookie             /* Stack setzen und Editor starten */
  81.     ADDRESS VALUE zpPort
  82.     GUILOCK OFF                                /* ZP wird für den User wieder freigegeben! */
  83.   EXIT
  84.  END
  85.  IF ART == 1 THEN
  86.   DO
  87.     GUILOCK ON                                 /* Damit wird ZP für den User gesperrt! */
  88.     ADDRESS COMMAND
  89.     stack; Editor Hauptpfad||Pubcookie         /* Stack setzen und Editor starten */
  90.     ADDRESS VALUE zpPort
  91.     GUILOCK OFF                                /* ZP wird für den User wieder freigegeben! */
  92.    EXIT
  93.   END
  94.     GUILOCK ON                                 /* Damit wird ZP für den User gesperrt! */
  95.     ADDRESS COMMAND
  96.     stack; Editor Hauptpfad||Privcookie        /* Stack setzen und Editor starten */
  97.     ADDRESS VALUE zpPort
  98.     GUILOCK OFF                                /* ZP wird für den User wieder freigegeben! */
  99.